Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d18/intrfc61.arc/TEST1.INC

Text File | 1991-03-28 | 104b | 8 lines

    function    fun;
    var
      x : double;
    begin
      x := 0;
      x := x*x;
    end;